home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / reu27.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  12 lines
  1. 1 A=0:B=0:R=0:GM=0:BM=0
  2. 2 INPUT"[147]HOW MUCH MEMORY ARE YOU SUPPOSED TO HAVE";SH
  3. 3 PRINTCHR$(147);
  4. 10 SYS2816
  5. 20 R=PEEK(2912)*64+64:IFR=64THENR=0
  6. 22 IFR<>SHTHENPRINT"[147]MEMORY AMOUNT DOESN'T MATCH!":BM=BM+1
  7. 23 IFR=SHTHENPRINT"[147]MEMORY AMOUNT MATCHES!":GM=GM+1
  8. 25 PRINT"GOOD MATCHES = ";GM;" BAD MATCHES = ";BM
  9. 30 PRINT"MEMORY =";R;"[157]K. ";
  10. 40 IFPEEK(3065)=187THENB=B+1:PRINT"BAD = ";B;" GOOD = ";A:R=0:GOTO10
  11. 50 A=A+1:PRINT"GOOD = ";A;" BAD = ";B:R=0:GOTO10
  12.